collegaTutteLeAree:-
	api(Aree),
	findall(_,
			(member(A,Aree),
			 member(B,Aree),
		 	 not(A=B),
			 collegaAree([A,B],_)
			),
		  _).